home *** CD-ROM | disk | FTP | other *** search
/ SOHO - Exploring the Sun - 2003 Update / SOHO - Exploring the Sun - 2003 Update.iso / pc / data / main.dcr / scripts_181.ls < prev    next >
Encoding:
Text File  |  2003-02-25  |  1.3 KB  |  47 lines
  1. on exitFrame
  2.   global dire, nappi_sprite, us, uss, fade_count, fade_limit
  3.   if dire = 1 then
  4.     set the directToStage of member the member of sprite 110 to 1
  5.     set the directToStage of member "sml_sun" to 1
  6.     set dire to 0
  7.   end if
  8.   LiveRollOver(103, 103)
  9.   if SpriteExists(110) > 0 then
  10.     LiveRollOver(110, 80, 0)
  11.   end if
  12.   DefCurs()
  13.   if the puppet of sprite nappi_sprite = 0 then
  14.     set the puppet of sprite nappi_sprite to 1
  15.   end if
  16.   set us to 0
  17.   set f to 0
  18.   repeat while f < 8
  19.     if rollOver(f + 60) then
  20.       set the locV of sprite nappi_sprite to 74 + (f * 50)
  21.       set us to 1
  22.     end if
  23.     set f to f + 1
  24.   end repeat
  25.   if us = 1 then
  26.     set the locH of sprite nappi_sprite to 461
  27.   else
  28.     if the locV of sprite nappi_sprite < 480 then
  29.       set the locV of sprite nappi_sprite to 490
  30.     end if
  31.   end if
  32.   set fade_limit to 3
  33.   DefCurs()
  34.   if fade_count < fade_limit then
  35.     set fade_count to fade_count + 1
  36.   end if
  37.   set us to 0
  38.   set uss to 0
  39.   cov_test_a(60, 74, "newsun_c3", "newsun")
  40.   cov_test_a(62, 74 + (2 * 50), "newsun_c2", "newsun")
  41.   cov_test_a(66, 74 + (6 * 50), "newsun_c1", "newsun")
  42.   cov_test(60, 74, "newsun_c3", "newsun")
  43.   cov_test(62, 74 + (2 * 50), "newsun_c2", "newsun")
  44.   cov_test(66, 74 + (6 * 50), "newsun_c1", "newsun")
  45.   go(the frame)
  46. end
  47.